home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / totdem.arc / DEMIO15.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-10  |  968b  |  41 lines
  1. program DemoIOFifteen;
  2. {demIO15 - single WWArrayIOOBJ input}
  3.                    
  4. Uses DOS, CRT,
  5.      totFAST, totIO1, totIO3, totINPUT;
  6.  
  7. Var
  8.    MyList: array[1..10] of string[60];
  9.    WWField: WWArrayIOOBJ;
  10.  
  11. procedure FillArray;
  12. {}
  13. begin
  14.    FillChar(MyList,sizeof(MyList),#0);
  15.    MyList[1] := 'It seems like we have to work at innocence ';
  16.    MyList[2] := 'and being pure, and at the same time we have ';
  17.    MyList[3] := 'to work at being successful so that we have ';
  18.    MyList[4] := 'an understanding as to what the rest of the ';
  19.    MyList[5] := 'world is up to.';
  20.    MyList[6] := '';
  21.    MyList[7] := 'Brother Anthony Fiore';
  22. end; {FillArray}
  23.  
  24. begin
  25.    ClrScr;
  26.    Screen.WriteCenter(1,15,'Press F10 to finish');
  27.    FillArray;
  28.    Mouse.Show;
  29.    with WWField do
  30.    begin
  31.       Init(5,7,65,7,'A Quote');
  32.       AssignList(MyList,10,60);
  33.       WrapFull;
  34.       Activate;
  35.       gotoxy(1,20);
  36.       Done;
  37.    end;
  38.    Mouse.Hide;
  39. end.
  40.  
  41.